490 POKE53280,14:POKE53281,15:PRINT"[147][151]";:GOTO1000 499 IFLC=>PLTHENRETURN 500 IFPL-LCMNTHENA$=T$:GOSUB510:GOSUB510:C$=" (CONTINUED)":RETURN 560 GOSUB600:A$=" ":MN=1:RETURN 600 SV$=A$:IFLC=>FPTHEN615 610 FORI=1TOFP-LC:A$=" ":GOSUB510:NEXT 615 IF WT$<>"Y"THEN620 616 PRINT"...WAITING TO PRINT NEXT PAGE ";:INPUTW1$ 620 PC=PC+1:LC=1 630 PRINT#4," DISK CATALOG MANAGER/REPORTER DOCUMENTATION PAGE ";PC 640 IFLF$="Y"THENPRINT#4,CHR$(10); 650 A$=" ":GOSUB510 660 IFSW=0THENSW=1:A$=SV$:RETURN 670 A$=T$+C$:GOSUB510:IFC$=""THENC$=" (CONTINUED)" 680 A$=" ":GOSUB510:A$=SV$:RETURN 900 IFLC=>FPTHENCLOSE4:PRINT"[147]FINISHED":END 910 FORI=1TOFP-LC:A$=" ":GOSUB510:NEXT 920 CLOSE4:PRINT"[147]FINISHED":END 1000 PRINT"[147] DISK CATALOG MANAGER/REPORTER[146]" 1010 PRINT" DOCUMENTATION PRINT PROGRAM" 1020 PRINT"LINES IN FULL PAGE 66[157][157][157][157]";:INPUTFP 1030 PRINT"PRINT LINES PER PAGE 58[157][157][157][157]";:INPUTPL 1040 PRINT"PAUSE AT END OF EACH PAGE (Y/N) Y[157][157][157]";:INPUTWT$ 1050 PRINT"PRINTER DEVICE ADDRESS 4[157][157][157]";:INPUTDA 1060 PRINT"PRINTER SECONDARY ADDRESS 0[157][157][157]";:INPUTSA 1070 PRINT"SEND LINE FEED AFTER EACH PRINT LINE" 1080 PRINT" (Y/N) N[157][157][157]";:INPUTLF$ 1090 PRINT"...PRESS AND HOLD 'Q' TO QUIT PRINTING." 1100 OPEN4,DA,SA:GOSUB615 1110 A$="DOCUMENTATION TOPICS ARE AS FOLLOWS:" 1115 GOSUB500:GOSUB499 1120 A$=" 1) OVERVIEW" 1125 GOSUB500:GOSUB499 1130 A$=" 2) GETTING STARTED" 1135 GOSUB500:GOSUB499 1140 A$=" 3) MENU OPTIONS" 1145 GOSUB500:GOSUB499 1150 A$=" 4) EDITING NOTES" 1155 GOSUB500:GOSUB499 1160 A$=" 5) CONVERSION NOTES" 1165 GOSUB500:GOSUB499 1170 T$="...OVERVIEW":C$="":GOSUB550 1180 A$="THIS IS THE DOCUMENTATION FOR PROGRAM 'DISK CATALOG MANAGER/REPORTER'" 1185 GOSUB500 1190 A$="AUTHORED BY RAY MARTIN. ALTHOUGH THERE IS AN INCLINATION TO THINK" 1195 GOSUB500 1200 A$="OF IT AS JUST ANOTHER DISK CATALOGING PROGRAM, LISTED ARE SOME NOTABLE" 1205 GOSUB500 1210 A$="FEATURES:" 1215 GOSUB500:GOSUB499 1220 A$="1) A NAME FILE CAPACITY OF 2100 ENTRIES WITH EACH ENTRY COMPOSED" 1225 GOSUB500 1230 A$=" OF A 16 POSITION NAME + 4 POSITION ID." 1235 GOSUB500 1240 A$="2) DYNAMIC RECOGNITION OF 2 1541 DISK DRIVES AT PROGRAM STARTUP." 1245 GOSUB500 1250 A$=" THE DISK USED TO LOAD THIS PROGRAM WILL BE ESTABLISHED AS THE" 1255 GOSUB500 1260 A$=" DEFAULT DEVICE FOR LOAD AND SAVE OF NAME FILES. IF ANOTHER DISK" 1265 GOSUB500 1270 A$=" WITH AN ADDRESS BETWEEN 08 AND 11 IS DETECTED, THEN IT WILL BE" 1275 GOSUB500 1280 A$=" ESTABLISHED AS THE DEFAULT DEVICE FOR DOS COMMANDS AND CAPTURING" 1285 GOSUB500 1290 A$=" OF DIRECTORY ENTRIES. THESE STARTUP DEFAULTS MAY BE OVERRIDEN AT" 1295 GOSUB500 1300 A$=" ANY TIME." 1305 GOSUB500 1310 A$="3) CAPTURING OF NAMES FROM A DISK DIRECTORY IS UNIQUE IN THAT ALL" 1315 GOSUB500 1320 A$=" NAMES ARE READ INTO A TEMPORARY MEMORY AREA WHERE YOU MAY REVIEW," 1325 GOSUB500 1330 A$=" MODIFY, DISCARD, AND REINSTATE NAMES AS MANY TIMES AS NEEDED" 1335 GOSUB500 1340 A$=" BEFORE APPENDING TO YOUR NAME FILE IN COMPUTER MEMORY. " 1345 GOSUB500 1350 A$="4) FULL SCREEN EDITING IS PERHAPS THE MOST NOTABLE FEATURE OF THIS" 1355 GOSUB500 1360 A$=" PROGRAM. 18 SCREEN LINES FORM A WINDOW DURING THE EDITING" 1365 GOSUB500 1370 A$=" PROCESS COMMON TO BOTH CAPTURE OF NAMES AND REVIEW OF NAME FILE" 1375 GOSUB500 1380 A$=" ENTRIES IN COMPUTER MEMORY. THE CURSOR MAY FREELY BE MOVED" 1385 GOSUB500 1390 A$=" WITHIN THE WINDOW AREA ALLOWING YOU TO MODIFY ENTRIES OR SIGNAL" 1395 GOSUB500 1400 A$=" THEIR DELETION. THE CURSOR MAY ALSO BE USED TO SCROLL THE WINDOW" 1405 GOSUB500 1410 A$=" AREA UP OR DOWN THROUGH THE NAMES. FUNCTION KEYS F5 AND F7 ALLOW" 1415 GOSUB500 1420 A$=" YOU TO PAGE UP AND DOWN ONE WINDOW AT A TIME. FOR CONVENIENCE," 1425 GOSUB500 1430 A$=" SCROLLING AND PAGING KEYS AUTO-REPEAT." 1435 GOSUB500 1440 A$="5) NAMES CAN BE ADDED FROM THE KEYBOARD ALTHOUGH CAPTURE OF NAMES" 1445 GOSUB500 1450 A$=" FROM DIRECTORIES WILL PROBABLY ACCOUNT FOR MOST ENTRIES IN A NAME" 1455 GOSUB500 1460 A$=" FILE." 1465 GOSUB500 1470 A$="6) REVIEW OF NAMES IN THE WINDOW AREA CAN BE RESTRICTED BY LEADING" 1475 GOSUB500 1480 A$=" CHARACTERS YOU ENTER FOR EITHER THE NAME OR ID FIELD. THE ID" 1485 GOSUB500 1490 A$=" FIELD IS 4 POSITIONS AND BY KEYING ALL 4 POSITIONS, ONLY NAMES" 1495 GOSUB500 1500 A$=" WITH THAT ID WILL BE SHOWN IN THE WINDOW AREA." 1505 GOSUB500 1510 A$="7) A NAME FILE IN COMPUTER MEMORY CAN BE SORTED BY NAME OR ID." 1515 GOSUB500 1520 A$="8) A NAME FILE IN COMPUTER MEMORY CAN BE PRINTED IN 3 COLUMN FORMAT," 1525 GOSUB500 1530 A$=" AND IF YOUR PRINTER SUPPORTS CONDENSED PRINT (136 COLUMNS) YOU" 1535 GOSUB500 1540 A$=" CAN PRINT 6 COLUMNS OF NAME + ID ENTRIES PER PAGE." 1545 GOSUB500 1550 A$="9) A DOS MODULE IS PRESENT SO YOU CAN ISSUE DISK AND DIRECTORY" 1555 GOSUB500 1560 A$=" COMMANDS IN THE SAME FORMAT USED WITH THE DOS WEDGE." 1565 MN=2:GOSUB500 1570 A$="10) EXCEPT FOR THE DOCUMENTATION AND PRINTER SETUP PROGRAMS, CODING" 1575 MN=2:GOSUB500 1580 A$=" IS 100% MACHINE LANGUAGE FOR FASTER EXECUTION." 1585 GOSUB500:GOSUB499 1590 T$="...GETTING STARTED":C$="":GOSUB550 1600 A$="THE DISK CATALOG MANAGER/REPORTER PROGRAM IS INITIATED BY: " 1605 GOSUB500:GOSUB499 1610 A$=" LOAD"+CHR$(34)+"DCMR"+CHR$(34)+",8 " 1615 GOSUB500 1620 A$=" RUN " 1625 GOSUB500:GOSUB499 1630 A$="WHEN PRESENTED WITH THE INITIAL SCREEN, REPLY 'C' TO CONTINUE LOADING." 1635 GOSUB500 1640 A$="IF HOWEVER, PRINTER SETUP HAS NOT PREVIOUSLY BEEN SET FOR YOUR" 1645 GOSUB500 1650 A$="PRINTER, REPLY 'P' TO LOAD THE PRINTER SETUP PROGRAM." 1655 GOSUB500 1660 A$="BEFORE REPLYING 'P' YOU MIGHT WANT TO REVIEW THIS DISK'S DIRECTORY" 1665 GOSUB500 1670 A$="FOR EXISTING PRINTER SETUP CONFIGURATION FILES. THESE FILES WILL" 1675 GOSUB500 1680 A$="BEGIN WITH 'CFG.' WITH ADDITIONAL LETTERS SUGGESTING THE INTENDED" 1685 GOSUB500 1690 A$="PRINTER CONFIGURATION. THE PRINTER SETUP PROGRAM WILL ALLOW YOU TO" 1695 GOSUB500 1700 A$="LOAD ONE OF THESE FILES AND DUPLICATE IT AS THE ACTIVE" 1705 GOSUB500 1710 A$="'PRINTER.CONFIG' PRINTER CONTROL FILE." 1715 GOSUB500:GOSUB499 1720 A$="IF NONE OF THESE FILES ARE SUITABLE FOR YOUR PRINTER CONFIGURATION," 1725 GOSUB500 1730 A$="YOU MAY NEED TO KNOW THE CODES YOUR PRINTER ACCEPTS TO PLACE IT INTO" 1735 GOSUB500 1740 A$="AND OUT OF CONDENSED PRINT MODE (136 COLUMNS PER LINE). CONDENSED" 1745 GOSUB500 1750 A$="PRINT FORMAT IS NECESSARY TO PRINT 6 COLUMNS OF NAME + ID ENTRIES PER" 1755 GOSUB500 1760 A$="PAGE, BUT IS NOT NEEDED FOR 3 COLUMN PRINTING. " 1765 GOSUB500 1770 A$="IF YOU CHOOSE TO LOAD A 'CFG.' FILE DURING PRINTER SETUP, YOU WILL" 1775 GOSUB500 1780 A$="HAVE THE OPPORTUNITY TO REVISE IT BEFORE SAVING AS THE PRODUCTION" 1785 GOSUB500 1790 A$="'PRINTER.CONFG' FILE." 1795 GOSUB500:GOSUB499 1800 T$="...MENU OPTIONS":C$="":MN=30:GOSUB550 1810 A$="LISTED BELOW IS HOW THE MAIN MENU APPEARS ON THE SCREEN." 1815 GOSUB500:GOSUB499:GOSUB499 1820 A$=" DISK CATALOG MANAGER/REPORTER" 1825 GOSUB500:GOSUB499 1830 A$=" A) TYPE NEW NAMES FROM KEYBOARD" 1835 GOSUB500:GOSUB499 1840 A$=" B) ADD NEW NAMES FROM DISKETTE" 1845 GOSUB500:GOSUB499 1850 A$=" C) DISPLAY ALL/SELECTIVE (WITH" 1855 GOSUB500 1860 A$=" FULL SCREEN EDITING & DELETING)" 1865 GOSUB500:GOSUB499 1870 A$=" D) SORT BY NAME OR ID" 1875 GOSUB500:GOSUB499 1880 A$=" E) PRINT WITH 3 OR 6 COLUMNS" 1885 GOSUB500:GOSUB499 1890 A$=" F) LOAD A FILE/START A NEW FILE" 1895 GOSUB500:GOSUB499 1900 A$=" G) SAVE A FILE TO DISK" 1905 GOSUB500:GOSUB499 1910 A$=" H) CHANGE AN ID" 1915 GOSUB500:GOSUB499 1920 A$=" I) DISK DIRECTORY & DOS COMMANDS" 1925 GOSUB500:GOSUB499 1930 A$=" J) QUIT" 1935 GOSUB500:GOSUB499 1940 A$=" TOTAL ENTRIES 0000 OF POSSIBLE 2100" 1945 GOSUB500:GOSUB499 1950 A$="A) TYPE NEW NAMES FROM KEYBOARD" 1955 MN=4:GOSUB500:GOSUB499 1960 A$="THIS OPTION FIRST PROMPTS YOU TO ENTER A 4 POSITION ID. YOU ARE THEN" 1965 GOSUB500 1970 A$="PRESENTED WITH A SCREEN ON WHICH YOU CAN ENTER 16 POSITION NAMES." 1975 GOSUB500 1980 A$="THE ID FIELD MAY BE ALTERED IF YOU CHOOSE, BUT IS PRE-FILLED FOR" 1985 GOSUB500 1990 A$="YOUR CONVENIENCE." 1995 GOSUB500:GOSUB499 2000 A$="B) ADD NEW NAMES FROM DISKETTE" 2005 MN=4:GOSUB500:GOSUB499 2010 A$="THIS OPTION FIRST PROMPTS YOU TO ENTER A 4 POSITION ID. YOU ARE THEN" 2015 GOSUB500 2020 A$="PROMPTED FOR THE DEVICE ADDRESS TO READ THE DIRECTORY FROM. YOU WILL" 2025 GOSUB500 2030 A$="SEE THE DIRECTORY ENTRIES ON THE SCREEN AS THEY ARE CAPTURED AFTER" 2035 GOSUB500 2040 A$="WHICH AN 18 ENTRY WINDOW WILL BE SETUP FOR EDITING OF DIRECTORY" 2045 GOSUB500 2050 A$="ENTRIES. NOTHING IS FINAL UNTIL YOU HOLD DOWN THE 'CTRL' KEY AND" 2055 GOSUB500 2060 A$="PRESS 'F' AT THE SAME TIME." 2065 GOSUB500:GOSUB499 2070 A$="C) DISPLAY ALL/SELECTIVE (WITH" 2075 MN=5:GOSUB499 2080 A$=" FULL SCREEN EDITING & DELETING)" 2085 GOSUB500:GOSUB499 2090 A$="THIS OPTION ALLOWS YOU TO REVIEW NAME ENTRIES IN A VARIETY OF WAYS." 2095 GOSUB500 2100 A$="ENTRIES THAT ARE SHOWN MAY BE MODIFIED OR DELETED. NOTE THAT" 2105 GOSUB500 2110 A$="DELETION DOES NOT OCCUR IMMEDIATELY. A PAGING KEY (F5 OR F7) OR ANY" 2115 GOSUB500 2120 A$="KEY THAT CAUSES AN ENTRY TO GO OFF SCREEN WILL CAUSE DELETION OF ANY" 2125 GOSUB500 2130 A$="ENTRY SHOWN IN REVERSE VIDEO. YOU ARE PRESENTED WITH A SUB MENU TO" 2135 GOSUB500 2140 A$="COMMUNICATE HOW YOU WISH THE ENTRIES SHOWN." 2145 GOSUB500:GOSUB499 2150 A$=" 1 SHOW ALL ENTRIES STARTING AT TOP" 2155 MN=6:GOSUB500 2160 A$=" 2 SHOW ALL ENTRIES STARTING AT BOTTOM" 2165 GOSUB500 2170 A$=" 3 SHOW ALL ENTRIES STARTING AT NAME" 2175 GOSUB500 2180 A$=" YOU ENTER" 2185 GOSUB500 2190 A$=" 4 RESTRICT SHOW OF ENTRIES BY NAME" 2195 GOSUB500 2200 A$=" 5 RESTRICT SHOW OF ENTRIES BY ID" 2205 GOSUB500:GOSUB499 2210 A$="WHEN SUPPLYING A NAME OR ID YOU MAY KEY ALL CHARACTER POSITIONS OR" 2215 MN=2:GOSUB500 2220 A$="LEADING POSITIONS ONLY. AS MANY POSITIONS AS YOU KEY WILL BE" 2225 GOSUB500 2230 A$="COMPARED TO THE SAME CHARACTER POSITIONS OF EACH ENTRY AND MUST MATCH" 2235 GOSUB500 2240 A$="BEFORE SELECTION IS SATISFIED AND THE ENTRY SHOWN." 2245 GOSUB500:GOSUB499 2250 A$="SUB MENU ITEM 3 PROMPTS FOR A COMPARISON NAME FIELD. SELECTION" 2255 MN=2:GOSUB500 2260 A$="OCCURS ONLY ONCE AND SERVES AS A STARTING POINT." 2265 GOSUB500 2270 A$="FOR A LARGE NUMBER OF ENTRIES IT MIGHT BE CONVENIENT TO BEGIN THE" 2275 GOSUB500 2280 A$="DISPLAY WITH THE FIRST OCCURRENCE OF A NAME HAVING THE FIRST LETTER" 2285 GOSUB500 2290 A$="IN COMMON WITH THE NAME YOU ARE LOOKING FOR. THIS DOES ASSUME YOUR" 2295 GOSUB500 2300 A$="ENTRIES ARE IN NAME SEQUENCE." 2305 GOSUB500:GOSUB499 2310 A$="SUB MENU ITEM 5 MAY BE MOST USEFUL TO SEE ONLY THOSE ENTRIES FOR A" 2315 MN=2:GOSUB500 2320 A$="PARTICULAR ID. IF EVER YOU HAVE THE NEED TO DELETE ALL ENTRIES FOR" 2325 GOSUB500 2330 A$="AN ID, SELECT THIS OPTION SUPPLYING ALL 4 POSITIONS FOR THE ID AND" 2335 GOSUB500 2340 A$="THEN USE 'CTRL-S' FOLLOWED BY 'F7' TO DELETE ALL ENTRIES SHOWN ON THE" 2345 GOSUB500 2350 A$="SCREEN AT ONCE. REPEAT THE PROCESS UNTIL NO MORE ENTRIES APPEAR FOR" 2355 GOSUB500 2360 A$="THE SELECTED ID." 2365 GOSUB500:GOSUB499 2370 A$="D) SORT BY NAME OR ID" 2375 MN=4:GOSUB500:GOSUB499 2380 A$="THIS OPTION FIRST PROMPTS YOU TO ENTER 'N' OR 'I' TO COMMUNICATE THE" 2385 GOSUB500 2390 A$="SORT SEQUENCE." 2395 GOSUB500:GOSUB499 2400 A$="ALTHOUGH SORTING IS REASONABLY FAST, IF YOU ARE INCLINED TO SORT BOTH" 2405 GOSUB500 2410 A$="IN NAME SEQUENCE AND ID SEQUENCE YOU MAY CHOOSE TO SAVE YOUR NAME" 2415 GOSUB500 2420 A$="FILE TO DISK AFTER SORTING IN NAME SEQUENCE. THIS MAY SAVE YOU A" 2425 GOSUB500 2430 A$="THIRD SORT TO PLACE ENTRIES BACK INTO NAME SEQUENCE ASSUMING YOU" 2435 GOSUB500 2440 A$="PREFER YOUR FILE SAVED IN NAME SEQUENCE." 2445 GOSUB500:GOSUB499 2450 A$="E) PRINT WITH 3 OR 6 COLUMNS" 2455 MN=4:GOSUB500:GOSUB499 2460 A$="THIS OPTION PROMPTS FOR A NUMBER OF THINGS; LINES IN FULL PAGE, PRINT" 2465 GOSUB500 2470 A$="LINES PER PAGE, COLUMNS PER PAGE (3/6), PAUSE AT END OF EACH PAGE" 2475 GOSUB500 2480 A$="(Y/N), AS OF DATE, AND TITLE." 2485 GOSUB500 2490 A$="IF THE 'PRINTER.CONFIG' FILE WAS DEFINED WITH OPTIONAL PRINTER SETUP" 2495 GOSUB500 2500 A$="SEQUENCES 1-4, THEN YOU ARE GIVEN THE OPPORTUNITY TO SEND ANY OF" 2505 GOSUB500 2510 A$="THESE." 2515 GOSUB500 2520 A$="IF YOUR PRINTER NORMALLY SKIPS LINES AT THE END OF EACH PAGE, YOU MAY" 2525 GOSUB500 2530 A$="FIND IT CONVENIENT TO SPECIFY A LINES IN FULL PAGE VALUE EQUAL TO THE" 2535 GOSUB500 2540 A$="ACTUAL NUMBER OF LINES IN A FULL PAGE MINUS THE NUMBER OF LINES THAT" 2545 GOSUB500 2550 A$="ARE AUTOMATICALLY SKIPPED." 2555 GOSUB500 2560 A$="FOR INFORMATION ON PRINTER SETUP, REFER TO THE DOCUMENTATION TOPIC" 2565 GOSUB500 2570 A$="'GETTING STARTED'." 2575 GOSUB500:GOSUB499 2580 A$="F) LOAD A FILE/START A NEW FILE" 2585 MN=4:GOSUB500:GOSUB499 2590 A$="THIS OPTION FIRST PROMPTS FOR AN 'L' OR 'S' TO SIGNAL LOAD OR START" 2595 GOSUB500 2600 A$="OF A NAME FILE. IF LOAD IS YOUR CHOICE, YOU WILL BE PROMPTED FOR THE" 2605 GOSUB500 2610 A$="NAME OF THE FILE AND THEN THE DISK DEVICE ADDRESS TO LOAD FROM." 2615 GOSUB500 2620 A$="AFTER A SUCCESSFUL LOAD YOU WILL BE SHOWN THE DATE AND TITLE" 2625 GOSUB500 2630 A$="PREVIOUSLY ASSOCIATED WITH THE NAME FILE." 2635 GOSUB500:GOSUB499 2640 A$="G) SAVE A FILE TO DISK" 2645 MN=4:GOSUB500:GOSUB499 2650 A$="THIS OPTION PROMPTS YOU FOR THE DATE AND TITLE TO ASSOCIATE WITH THE" 2655 GOSUB500 2660 A$="NAME FILE TO BE SAVED. YOU ARE THEN PROMPTED TO ENTER THE NAME TO" 2665 GOSUB500 2670 A$="USE IN SAVING YOUR FILE FOLLOWED BY A PROMPT FOR THE TARGET DISK" 2675 GOSUB500 2680 A$="DEVICE ADDRESS." 2685 GOSUB500:GOSUB499 2690 A$="IF YOU HAVE TROUBLE SAVING YOUR FILE, TRY RESETTING THE DISK DRIVE OR" 2695 GOSUB500 2700 A$="TURNING IT OFF AND ON." 2705 GOSUB500:GOSUB499 2710 A$="IT MAY BE EASIER TO KEEP TRACK OF THE NAME YOU USE IN SAVING YOUR" 2715 MN=2:GOSUB500 2720 A$="FILE IF YOU INCORPORATE A 2 DIGIT SEQUENCE NUMBER AS PART OF THE NAME." 2725 GOSUB500 2730 A$="BY INCREMENTING THIS NUMBER WITH EACH CHANGE AND RESAVE OF THE NAME" 2735 GOSUB500 2740 A$="FILE, IT WILL BE SIMPLE TO IDENTIFY THE LATEST NAME FILE WHEN" 2745 GOSUB500 2750 A$="VIEWING THE DIRECTORY OF THE DISK IT IS STORED ON. ALSO, IF YOU" 2755 GOSUB500 2760 A$="INCORPORATE THE SAVE NAME FILE IN THE TITLE, THEN YOUR PRINTED REPORT" 2765 GOSUB500 2770 A$="TITLE WILL REVEAL THE FILE NAME TO LOAD WHEN NEXT YOU GO TO REVISE IT." 2775 GOSUB500:GOSUB499 2780 A$="H) CHANGE AN ID" 2785 MN=4:GOSUB500:GOSUB499 2790 A$="THIS OPTION ALLOWS YOU TO CHANGE THE 4 POSITION ID FIELD FROM ONE" 2795 GOSUB500 2800 A$="VALUE TO ANOTHER. YOU ARE FIRST PROMPTED TO ENTER THE OLD ID," 2805 GOSUB500 2810 A$="FOLLOWED BY THE NEW ID. NO CHECK IS MADE TO INSURE THE UNIQUENESS OF" 2815 GOSUB500 2820 A$="THE NEW ID. UPON COMPLETION, YOU WILL BE SHOWN A SUMMARY COUNT OF" 2825 GOSUB500 2830 A$="ENTRIES CHANGED." 2835 GOSUB500:GOSUB499 2840 A$="I) DISK DIRECTORY & DOS COMMANDS" 2845 MN=4:GOSUB500:GOSUB499 2850 A$="THIS OPTION NOT ONLY ALLOWS YOU TO OBTAIN DISK DIRECTORIES AND SEND" 2855 GOSUB500 2860 A$="DOS COMMANDS, BUT ALSO PERMITS YOU TO CHANGE THE DEVICE ADDRESS A" 2865 GOSUB500 2870 A$="DISK UNIT RESPONDS TO AS WELL AS THE DISK DEVICE # THE DIRECTORY AND" 2875 GOSUB500 2880 A$="DOS COMMANDS ARE ROUTED TO. YOU ARE PRESENTED WITH A SUB MENU AS" 2885 GOSUB500 2890 A$="FOLLOWS:" 2895 GOSUB500:GOSUB499 2900 A$=" 1) ENTER DIRECTORY & DOS COMMANDS" 2905 MN=5:GOSUB500 2910 A$=" 2) SET DEVICE # FOR COMMANDS (NOW 08)" 2915 GOSUB500 2920 A$=" 3) CHANGE 1541 DISK DRIVE DEVICE #" 2925 GOSUB500 2930 A$=" 4) CAPTURE NAMES FROM DISKETTE" 2935 GOSUB500 2940 A$=" 5) EXIT" 2945 GOSUB500:GOSUB499 2950 A$="SUB MENU ITEM 1 ALLOWS YOU TO TYPE COMMANDS IN THE SAME FORMAT USED" 2955 MN=2:GOSUB500 2960 A$="WITH THE DOS WEDGE. COMMANDS YOU ENTER ARE SENT TO THE DISK WITHOUT" 2965 GOSUB500 2970 A$="ALTERATION. DISK STATUS IS AUTOMATICALLY SUPPLIED AFTER A COMMAND IS" 2975 GOSUB500 2980 A$="PROCESSED. COMMANDS ARE SENT TO THE DISK DEVICE # SHOWN IN SUB MENU" 2985 GOSUB500 2990 A$="ITEM 2." 2995 GOSUB500:GOSUB499 3000 A$="SUB MENU ITEM 2 ALLOWS THE TARGET DEVICE # FOR DIRECTORY AND DOS" 3005 MN=2:GOSUB500 3010 A$="COMMANDS TO BE CHANGED. THE CURRENT TARGET DEVICE # IS SHOWN INSIDE" 3015 GOSUB500 3020 A$="PARENTHESIS." 3025 GOSUB500:GOSUB499 3030 A$="SUB MENU ITEM 3 ALLOWS YOU TO CHANGE THE DEVICE # A DISK DRIVE" 3035 GOSUB500 3040 A$="RESPONDS TO FROM ITS CURRENT VALUE TO A VALUE BETWEEN 08 AND 11." 3045 GOSUB500 3050 A$="THIS CHANGE IS TEMPORARY IN DISK DRIVE MEMORY LOCATIONS $77-78." 3055 GOSUB500:GOSUB499 3060 A$="SUB MENU ITEM 4 IS A DUPLICATION OF MAIN MENU ITEM 'B) ADD NEW NAMES" 3065 GOSUB500 3070 A$="FROM DISKETTE'." 3075 GOSUB500:GOSUB499 3080 A$="SUB MENU ITEM 5 WILL EXIT TO THE MAIN MENU." 3085 GOSUB500:GOSUB499 3090 A$="J) QUIT" 3095 MN=4:GOSUB500:GOSUB499 3100 A$="THIS OPTION WILL EXIT THE DISK CATALOG MANAGER/REPORTER PROGRAM AND" 3105 GOSUB500 3110 A$="RESET THE COMPUTER. IT MAY PROMPT YOU TO BE SURE OF YOUR INTENTIONS" 3115 GOSUB500 3120 A$="BEFORE FULFILLING THE QUIT OPERATION." 3125 GOSUB500:GOSUB499 3130 T$="...EDITING NOTES":C$="":MN=15:GOSUB550 3140 A$="FULL SCREEN EDITING IS PERHAPS THE MOST NOTABLE FEATURE OF THIS" 3145 GOSUB500 3150 A$="PROGRAM. 18 SCREEN LINES FORM A WINDOW DURING THE EDITING PROCESS" 3155 GOSUB500 3160 A$="COMMON TO BOTH CAPTURE OF NAMES AND REVIEW OF A NAME FILE IN COMPUTER" 3165 GOSUB500 3170 A$="MEMORY. THE CURSOR MAY FREELY BE MOVED WITHIN THE WINDOW AREA" 3175 GOSUB500 3180 A$="ALLOWING YOU TO MODIFY ENTRIES OR SIGNAL THEIR DELETION. THE CURSOR" 3185 GOSUB500 3190 A$="MAY ALSO BE USED TO SCROLL THE WINDOW AREA UP OR DOWN THROUGH THE" 3195 GOSUB500 3200 A$="NAMES." 3205 GOSUB500 3210 A$="FUNCTION KEYS F5 AND F7 ALLOW YOU TO PAGE UPWARD AND DOWNWARN ONE" 3215 GOSUB500 3220 A$="WINDOW AT A TIME. FOR CONVENIENCE, SCROLLING AND PAGING KEYS" 3225 GOSUB500 3230 A$="AUTO-REPEAT. ACTUALLY, MOST KEYS WHEN HELD DOWN WILL AUTO-REPEAT" 3235 GOSUB500 3240 A$="AFTER A BRIEF DELAY." 3245 GOSUB500:GOSUB499 3250 A$="WHEN EDITING, THE TOP OF THE SCREEN WILL SHOW THE FOLLOWING:" 3255 MN=6:GOSUB500:GOSUB499 3260 A$=" REVERSE NAMES ARE DISCARDED...TOGGLE" 3265 GOSUB500 3270 A$=" USING CTRL-D (1 NAME), CTRL-S (SCREEN)." 3275 GOSUB500 3280 A$=" CTRL-F WHEN FINISHED; CTRL-A TO ABORT;" 3285 GOSUB500 3290 A$=" CTRL-H FOR HELP; 0000 ENTRIES (2100 MAX)" 3295 GOSUB500:GOSUB499 3300 A$="REVERSE VIDEO NAMES ARE DELETED. NOTE THAT DELETION DOES NOT OCCUR" 3305 MN=2:GOSUB500 3310 A$="IMMEDIATELY. A PAGING KEY (F5 OR F7) OR ANY KEY THAT CAUSES AN ENTRY" 3315 GOSUB500 3320 A$="TO GO OFF SCREEN WILL CAUSE DELETION OF ANY ENTRY SHOWN IN REVERSE" 3325 GOSUB500 3330 A$="VIDEO. YOU MAY TOGGLE A SINGLE ENTRY INTO AND OUT OF REVERSE VIDEO" 3335 GOSUB500 3340 A$="BY HOLDING DOWN THE 'CTRL' KEY AND PRESSING 'D'. BY HOLDING DOWN" 3345 GOSUB500 3350 A$="THE 'CTRL' KEY AND PRESSING 'S' YOU CAN TOGGLE ALL 18 ENTRIES IN THE" 3355 GOSUB500 3360 A$="SCREEN WINDOW TO THEIR OPPOSITE VIDEO IMAGE." 3365 GOSUB500 3370 A$="IF YOU NEED TO DISCARD THE MAJORITY OF THE 18 ENTRIES SHOWN IN THE" 3375 GOSUB500 3380 A$="SCREEN WINDOW, IT MAY BE EASIER TO FIRST TOGGLE ALL 18 ENTRIES TO" 3385 GOSUB500 3390 A$="REVERSE VIDEO USING 'CTRL-S' AND THEN TOGGLE BACK INDIVIDUAL ENTRIES" 3395 GOSUB500 3400 A$="USING 'CTRL-D'." 3405 GOSUB500 3410 A$="BY COINCIDENCE THE 'HOME' KEY SENDS THE SAME ASCII CODE AS 'CTRL-S'." 3415 GOSUB500 3420 A$="IF YOU PREFER, ANYTIME YOU WOULD USE 'CTRL-S' YOU MAY SUBSTITUTE THE" 3425 GOSUB500 3430 A$="SINGLE KEY DEPRESSION OF 'HOME'." 3435 GOSUB500:GOSUB499 3440 A$="THE SCREEN MEMORY AREA SERVES AS A TEMPORARY BUFFER AND EVEN THOUGH" 3445 MN=2:GOSUB500 3450 A$="INDIVIDUAL ENTRIES MAY BE SCROLLED UP OR DOWN IN THE WINDOW AREA," 3455 GOSUB500 3460 A$="ANY CHANGES ARE DEFERRED UNTIL THE ENTRY IS REMOVED FROM THE SCREEN" 3465 GOSUB500 3470 A$="OR A PAGING KEY (F5 OR F7) IS PRESSED. DUE TO THIS BUFFERING, IF YOU" 3475 GOSUB500 3480 A$="HOLD DOWN THE 'CTRL' KEY AND PRESS 'A' (ABORT AND RETURN TO MENU) ANY" 3485 GOSUB500 3490 A$="TEMPORARY CHANGES OR DELETIONS WILL NOT BE COMPLETED." 3495 GOSUB500 3500 A$="ON THE OTHER HAND, IF YOU HOLD DOWN THE 'CTRL' KEY AND PRESS 'F'" 3505 GOSUB500 3510 A$="(FINISH UP AND RETURN TO MAIN MENU), ANY PENDING CHANGES OR DELETIONS" 3515 GOSUB500 3520 A$="WILL BE COMPLETED BEFORE RETURNING TO THE MAIN MENU." 3525 GOSUB500 3530 A$="EDITING OF DIRECTORY ENTRIES DIFFERS IN RESPECT THAT ALL DIRECTORY" 3535 GOSUB500 3540 A$="ENTRIES ARE HELD IN A TEMPORARY MEMORY AREA, NOT JUST THE ONES" 3545 GOSUB500 3550 A$="CURRENTLY ON SCREEN. THEREFORE, EVEN ENTRIES THAT ARE MARKED FOR" 3555 GOSUB500 3560 A$="DELETION (REVERSE VIDEO) MAY BE RE-DISPLAYED ON THE SCREEN AND" 3565 GOSUB500 3570 A$="TOGGLED BACK OUT OF REVERSE VIDEO IMAGE." 3575 GOSUB500:GOSUB499 3580 A$="BY HOLDING DOWN THE 'CTRL' KEY AND PRESSING 'H' YOU ARE PRESENTED" 3585 MN=2:GOSUB500 3590 A$="WITH A BRIEF HELP SCREEN NOTING SPECIAL EDITING KEYS. TWO KEYS NOT" 3595 GOSUB500 3600 A$="NOTED INCLUDE THE INSERT 'INST' AND DELETE 'DEL' KEYS WHICH PERFORM" 3605 GOSUB500 3610 A$="IN THEIR USUAL WAY." 3615 GOSUB500:GOSUB499 3620 A$="ALSO NOT NOTED ARE THE 'RETURN' AND LEFT ARROW (ABOVE 'CTRL') KEYS." 3625 MN=2:GOSUB500 3630 A$="THE LEFT ARROW KEY, IF WITHIN A FIELD WILL MOVE THE CURSOR TO" 3635 GOSUB500 3640 A$="POSITION 1 OF THAT FIELD, OTHERWISE IT WILL MOVE THE CURSOR TO" 3645 GOSUB500 3650 A$="POSITION 1 OF THE PRECEEDING FIELD." 3655 GOSUB500 3660 A$="THE RETURN KEY, ON THE OTHER HAND WILL ALWAYS PLACE THE CURSOR IN" 3665 GOSUB500 3670 A$="POSITION 1 OF THE FOLLOWING FIELD." 3675 GOSUB500:GOSUB499 3680 A$="OTHER EDITING CONTROL KEYS ARE:" 3685 MN=10:GOSUB500:GOSUB499 3690 A$=" CRSR UP - SCROLL UPWARD" 3695 GOSUB500 3700 A$=" CRSR DOWN - SCROLL DOWNWARD" 3705 GOSUB500 3710 A$=" F1 - MOVE CURSOR TO 1ST NAME" 3715 GOSUB500 3720 A$=" F3 - MOVE CURSOR TO LAST NAME" 3725 GOSUB500 3730 A$=" F5 - PAGE UPWARD" 3735 GOSUB500 3740 A$=" F7 - PAGE DOWNWARD" 3745 GOSUB500 3750 A$=" CTRL-A - ABORT AND RETURN TO MENU" 3755 GOSUB500 3760 A$=" CTRL-F - FINISH UP, RETURN TO MENU" 3765 GOSUB500:GOSUB499 3770 A$="THE DEGREE OF INFLUENCE 'CTRL-A' HAS DEPENDS ON WHETHER YOU ARE" 3775 MN=2:GOSUB500 3780 A$="EDITING ESTABLISHED NAME ENTRIES, OR DIRECTORIES. WHEN EDITING" 3785 GOSUB500 3790 A$="ESTABLISHED ENTRIES, 'CTRL-A' WILL IGNORE ANY PENDING CHANGES ACTIVE" 3795 GOSUB500 3800 A$="ON THE CURRENT SCREEN. WHEN EDITING DIRECTORIES, 'CTRL-A' WILL" 3805 GOSUB500 3810 A$="IGNORE ALL DIRECTORY ENTRIES AND THE ESTABLISHED ENTRY COUNT WILL" 3815 GOSUB500 3820 A$="REMAIN UNCHANGED." 3825 GOSUB500:GOSUB499 3830 A$="'CTRL-F' DIFFERS FROM 'CTRL-A' IN THAT ANY PENDING CHANGES ARE" 3835 MN=2:GOSUB500 3840 A$="COMPLETED AND IF EDITING DIRECTORY ENTRIES, ALL NOT MARKED IN REVERSE" 3845 GOSUB500 3850 A$="VIDEO WILL BE APPENDED TO THE BOTTOM OF THE ESTABLISHED NAME ENTRIES." 3855 GOSUB500 3860 A$="UPON COMPLETION, 'CTRL-A' AND 'CTRL-F' BOTH RETURN CONTROL TO THE" 3865 GOSUB500 3870 A$="MAIN MENU." 3875 GOSUB500:GOSUB499 3880 T$="...CONVERSION NOTES":C$="":MN=15:GOSUB550 3890 A$="AT THIS TIME IN WRITING, TWO CONVERSION PROGRAMS ARE PLANNED." 3895 GOSUB500:GOSUB499 3900 A$="'CNV.PROGRAM LIST' IS TO CONVERT FILES MAINTAINED USING THE" 3905 GOSUB500 3910 A$=" CATALOGING PROGRAM 'PROGRAM LIST'. 3915 [141]500:[141]499 3920 A$[178]"'CNV.DISK FILE4.7' IS TO CONVERT FILES MAINTAINED USING THE" 3925 [141]500 3930 A$[178]" CATALOGING PROGRAM 'DISK FILE 4.7.C'. 3935 GOSUB500:GOSUB499 3940 A$="LOAD AND RUN THE RESPECTIVE CONVERSION (CNV.) PROGRAM AND FOLLOW THE" 3945 GOSUB500 3950 A$="PROMPTS." 3955 GOSUB500 3960 GOTO 900